home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
17 Bit Software 6: Level 6
/
17 Bit - Level 6 (1998)(Epic Marketing)[!].iso
/
!applications!
/
symphonie
/
dsplugin
/
dspplugin counter.s
< prev
next >
Wrap
Text File
|
1994-04-11
|
3KB
|
147 lines
MC68020
SST_SYS_GetMem EQU 0
SST_SYS_FreeMem EQU 4
SST_FILE_RequestFileName EQU 100
SST_FILE_SetReqPattern EQU 104
SST_FILE_SetReqDir EQU 108
SST_FILE_GetFileName EQU 112
SST_FILE_GetFileLen EQU 116
SST_GFX_AssistText EQU 200
SST_GFX_AssistDecLong EQU 204
SST_GFX_AssistDecByte EQU 208
SST_GFX_AssistHexLong EQU 212
SST_AUDIO_GetChunkLen EQU 400
SST_PTR_EXECBASE EQU 1600
SST_PTR_INTBASE EQU 1604
SST_PTR_DOSBASE EQU 1608
SST_PTR_ASLBASE EQU 1612
SST_PTR_REQTOOLSBASE EQU 1616
SST_PTR_GFXBASE EQU 1620
SST_PTR_Screen EQU 1650
SST_ADR_ProcessorFlags EQU 1800
SST_ADR_SystemFrequency EQU 1804
SST_ADR_SystemBpm EQU 1808
SST_ADR_ChunkLen EQU 1812
SST_ADR_OversampleFlag EQU 1816
SST_ADR_MaxAmplitude EQU 1820 ;$7fff in SymPRO
SST_ADR_BitPerSample EQU 1824 ;16 for 16 Bit Stream
dc.b "Symphonie DSP Plugin" ;MAGIC String (PRIVATE)
dc.w 1,0 ;Version,Release (PRIVATE,DO NOT CHANGE)
;- DSPLIB -------------------------------------------------
jmp InitDSP(PC) ;Allocate Mem, Build your Tables
jmp CleanUpDSP(PC) ;Free Mem
jmp ProcDsp(PC) ;Process DSP algorithm (interrupt)
jmp GetDspTitle(PC) ;Get DSP algorithm Title
jmp ModifyValue(PC) ;notify changed Value
jmp GraphSizeModify(PC) ;notify graph size has changed
jmp RefreshGraph(PC) ;notify its time for a GFX update
jmp StartDSP(PC) ;notify start
jmp StopDSP(PC) ;notify stop
dc.l -1
;- CODE --------------------------------------------------
StartDSP
rts
StopDSP
rts
GraphSizeModify
rts
RefreshGraph
lea.l Counter(PC),a0
move.l (a0),d0
move.l 4(a0),d1
cmp.l d1,d0
beq.s RefreshGraph_X
move.l d0,4(a0)
move.l #SST_GFX_AssistHexLong,d7
bsr GoSST
RefreshGraph_X
rts
ModifyValue ;INPUT (D0L,D1L)(VALUE, PARAMETER ID)
move.l Counter(PC),d0
move.l #SST_GFX_AssistHexLong,d7
bsr GoSST
rts
GoSST
move.l a6,-(sp)
move.l SUPERSTBASE(PC),a6
move.l (a6,d7.w),a6
jsr (a6)
move.l (sp)+,a6
rts
InitDSP ;INPUT (A0L)(SUPERSUPPORTTABLE_PTR)
;OUTPUT (A0L)(PARAMETER GUI DEF_PTR)
lea.l SUPERSTBASE(PC),a1
move.l a0,(a1)
lea.l Welcome_TXT(PC),a0
move.l #SST_GFX_AssistText,d7
bsr GoSST
lea.l Parameter_DEF(PC),a0
rts
Welcome_TXT dc.b "Welcome to DSP test",0
SUPERSTBASE dc.l 0
CleanUpDSP rts
GetDspTitle ;OUTPUT (A0L)(DSPTitle_TXT)
lea.l DSPTitle(PC),a0
rts
Counter dc.l 0,0
ProcDsp ;INPUT (D0W,A1L)(SAMPLE_NUMB,SAMPLECHUNK_PTR)
movem.l d0-a6,-(sp)
lea.l Counter(PC),a0
addq.l #1,(a0)
movem.l (sp)+,d0-a6
rts
;- GUI ------------------------------------------------------
even
Parameter_DEF
dc.b 0 ;END OF GUI DEF
;- TITLE ----------------------------------------------------
dc.b "$VER: "
DSPTitle dc.b "Test Dsp Plugin: Counter v1.0",0
END